home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c4.d64 / terminal.c1.c (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  1KB  |  44 lines
  1. 1 REM  *** NEW PROTOCOL ***
  2. 2 REM  RELEASE 1: JUL 31 1984
  3. 3 REM  BY STEVE PUNTER
  4. 10 IFPEEK(49152)<>169THENLOAD"TERM.C1",8,1
  5. 20 OPEN5,2,0,CHR$(6):POKE665,75:GET#5,A$:BS=255
  6. 30 TY$="PSP"
  7. 40 PRINT"[147][207]PTION:         [194]LOCK [211]IZE ="BS""
  8. 50 PRINT"   1 - [212]RANSMIT A [198]ILE"
  9. 60 PRINT"   2 - [210]ECEIVE A [198]ILE"
  10. 62 PRINT"   3 - [195]HANGE [194]LOCK [211]IZE"
  11. 63 PRINT"   4 - [212]ERMINAL [205]ODE"
  12. 70 GETA$:IFA$=""THEN70
  13. 80 IFA$="1"THEN1000
  14. 90 IFA$="2"THEN2000
  15. 92 IFA$="3"THEN3000
  16. 93 IFA$="4"THENPRINT"[212]ERMINAL [205]ODE:":GOTO4000
  17. 100 GOTO70
  18. 1000 PRINT"[208]ROGRAM [206]AME? ";:GOSUB5000:IFI$=""THEN4000
  19. 1010 OPEN2,8,0,I$:PRINT
  20. 1020 SYS49173:POKE51227,1:SYS49164:IFPEEK(512)=1THENCLOSE2:GOTO4000
  21. 1030 SYS49173:POKE51224,BS:SYS49158:CLOSE2:GOTO4000
  22. 2000 PRINT"[211]AVE [193]S? ";:GOSUB5000:IFI$=""THEN4000
  23. 2010 SYS49173:SYS49161:IFPEEK(512)=1THEN4000
  24. 2020 T$=","+MID$(TY$,PEEK(51227),1)+",W"
  25. 2030 OPEN2,8,2,"@0:"+I$+T$:FORX=1TO1300:NEXTX:PRINT:SYS61310
  26. 2040 SYS49173:SYS49155:CLOSE2:FORX=1TO1000:POKE668,PEEK(667):GOTO4000
  27. 3000 PRINT"[194]LOCK [211]IZE? ";:GOSUB5000:IFI$=""THEN40
  28. 3010 BS=VAL(I$):IFBS<40THENBS=40
  29. 3020 IFBS>255THENBS=255
  30. 3030 GOTO40
  31. 4000 PRINT
  32. 4010 SYS49173:SYS49167:GOTO40
  33. 5000 I$=""
  34. 5010 PRINT" [146][157]";
  35. 5020 GETA$:IFA$=""THEN5020
  36. 5030 IFA$=CHR$(13)THEN5100
  37. 5040 IFA$=CHR$(20)THEN5080
  38. 5050 IFLEN(A$)>20THEN5020
  39. 5060 IF(ASC(A$)AND127)<32THEN5020
  40. 5070 PRINTA$;:I$=I$+A$:GOTO5010
  41. 5080 IFLEN(I$)=0THEN5020
  42. 5090 PRINT" [157][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO5010
  43. 5100 PRINT" ":RETURN
  44.